
Partial Class Admin_frmReport
    Inherits System.Web.UI.Page
    Dim _EmployeeId As String

    Protected Sub lnk1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk1.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/Categorywise.aspx")
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        _EmployeeId = Session("EmpId")
        If _EmployeeId = "" Then
            Response.Redirect("../Client/frmLogin.aspx")
        End If
    End Sub

    Protected Sub lnk2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk2.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/periodwisereport.aspx")
    End Sub

    Protected Sub lnk3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk3.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/CustomerDetail.aspx")
    End Sub

    Protected Sub lnk4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk4.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/EmployeeDetail.aspx")
    End Sub

    Protected Sub lnk5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk5.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/ItemDetail.aspx")
    End Sub

    Protected Sub lnk6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk6.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/ItemwiseCustomer.aspx")
    End Sub

    Protected Sub lnk7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk7.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/monthlyselling.aspx")
    End Sub

    Protected Sub lnk8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk8.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/SupplierDetail.aspx")
    End Sub

    Protected Sub lnk9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnk9.Click
        Session("EmpId") = _EmployeeId
        Response.Redirect("../Reports/CurrentDaySelling.aspx")
    End Sub
End Class
